parameters m.cod,m.desc

do case
   case substr( m.cod, 3,5) = '00000'
        return m.desc
        
   case substr( m.cod, 5,3) = '000'
        return space(2)+m.desc
        
   otherwise
        return space(4)+m.desc
endcase
